home *** CD-ROM | disk | FTP | other *** search
/ KimStacks 7 / KimStacks CD-ROM 7 1993.iso / ShareWare / Games / Core! 1.1 / Battle Programs / contest87 / KWC72C < prev    next >
Encoding:
Text File  |  1989-07-18  |  1.1 KB  |  60 lines
  1. ;       2ND ICWS COMPETITION ENTRY
  2. ;
  3. ;       NAME :  KWC72C
  4. ;
  5. ;       PROGRAMMER :  Kenneth Clapp,  Southwick, MA
  6. ;
  7. ;         ORG START
  8. ;
  9. TOP2     DAT 0
  10.          DAT 0
  11.          DAT 0
  12.          DAT 0
  13.          DAT 0
  14. TOP1     DAT 0
  15. RESTOMP  MOV ZERO,@DEST1
  16. STOMP    MOV <DEST1,<DEST2
  17.          MOV <DEST1,<DEST2
  18.          MOV <DEST1,<DEST2
  19.          MOV <DEST1,<DEST2
  20.          JMZ STOMP,@DEST1
  21.          ADD #9,DEST1
  22.          ADD #9,DEST2
  23.          JMP RESTOMP
  24. DEST1    DAT TOP1
  25. DEST2    DAT TOP2
  26. ZERO     DAT TOP
  27.          DAT 10
  28.          DAT 325
  29.          SPL -7
  30.          DAT 4
  31.          DAT 679
  32.          JMP -7
  33.          DAT 7
  34.          DAT 679
  35. TOP      MOV <ZERO,#679
  36.          MOV <ZERO,DEST
  37.          MOV <ZERO,STOP
  38. START    MOV NUM1,<DEST
  39.          MOV NUM2,<DEST
  40.          ADD #14,DEST
  41.          DJN START,TOP
  42. STOP     JMP TOP
  43.          JMP RESTOMP
  44. NUM1     JMP -1
  45. NUM2     SPL -12
  46.          DAT 1
  47.          DAT 1
  48.          DAT 1
  49.          DAT 1
  50.          DAT 1
  51.          DAT 1
  52.          DAT 1
  53.          DAT 1
  54.          DAT 1
  55.          DAT 1
  56.          DAT 1
  57.          DAT 1
  58. DEST     DAT 1
  59.  
  60. END      START